home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Unreleased / (c)sd.d64 / combo demo (.txt) < prev    next >
Commodore BASIC  |  2009-02-04  |  884b  |  42 lines
  1. 10 POKE52,48:POKE56,48:CLR
  2. 20 V=53248: PT=2040
  3. 30 POKEV+33,1:POKEV+32,2:PRINT"[147]"
  4. 40 POKEV+39,0:POKEV+40,0
  5. 45 POKEV+23,3:POKEV+29,3
  6. 50 GOSUB10000
  7. 60 POKE PT,192: POKE PT+1,193
  8. 100 POKEV+1,100:POKEV+3,100
  9. 110 POKEV,0:POKEV+2,48
  10. 115 POKEV+21,3
  11. 120 FORX=0TO207
  12. 130 POKEV,X:POKEV+2,X+48
  13. 140 NEXT
  14. 150 FORX=207TO0STEP-1
  15. 160 POKEV,X:POKEV+2,X+48
  16. 170 NEXT
  17. 180 GETT$:IFT$=""THEN180
  18. 190 POKEV,100:POKEV+2,148
  19. 200 GETT$:IFT$=""THEN200
  20. 210 POKEV+40,3
  21. 900 GETT$:IFT$=""THEN900
  22. 999 STOP
  23. 10000 MEM=12288:FORI= 0 TO 15 :FORJ=0TO7
  24. 10010 READXX:POKEMEM+I*8+J,XX:NEXTJ,I
  25. 10020 RETURN
  26. 10030 DATA0,0,0,0,0,0,0,0
  27. 10040 DATA0,0,0,0,0,0,31,0
  28. 10050 DATA0,255,0,3,255,0,15,255
  29. 10060 DATA0,63,255,0,255,255,3,241
  30. 10070 DATA140,7,241,140,1,241,140,0
  31. 10080 DATA127,255,0,63,255,0,15,255
  32. 10090 DATA0,3,231,0,7,131,0,14
  33. 10100 DATA3,0,28,1,0,48,1,148
  34. 10110 DATA0,0,0,0,0,0,0,0
  35. 10120 DATA0,0,0,0,240,0,0,254
  36. 10130 DATA0,0,255,128,0,255,224,0
  37. 10140 DATA255,248,0,255,254,0,49,143
  38. 10150 DATA192,49,143,224,49,143,128,255
  39. 10160 DATA254,0,255,252,0,255,240,0
  40. 10170 DATA231,192,0,193,224,0,192,112
  41. 10180 DATA0,128,56,0,128,12,0,0
  42.